home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2001 August / Practical Internet August 2001.iso / PracticalInternet.exe / scripts / DefineButton2_95 / BUTTONCONDACTION on(press).as
Text File  |  2001-10-17  |  444b  |  17 lines
  1. on(press){
  2.    if("1" < fish)
  3.    {
  4.       count = "1";
  5.       fisher = fish;
  6.       while(count < "15")
  7.       {
  8.          set("field" add count,eval("soft" add (fisher - "1")));
  9.          set("field" add count add "link",eval("soft" add (fisher - "1") add "link"));
  10.          set("field" add count add "desc",eval("soft" add (fisher - "1") add "desc"));
  11.          count += "1";
  12.          fisher += "1";
  13.       }
  14.       fish -= "1";
  15.    }
  16. }
  17.